home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 2-Graphics / Apple Graphics Source / Graphics Database Lists / Graphics Database Lists / card_6242.txt < prev    next >
Text File  |  1990-02-26  |  1KB  |  64 lines
  1. -- card: 6242 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 5187
  5. -- name: print w/out TN bottom
  6.  
  7.  
  8. -- part 3 (field)
  9. -- low flags: 00
  10. -- high flags: 0007
  11. -- rect: left=0 top=52 right=342 bottom=512
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: List
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global listSelected, lineClicked
  23.   put clickLine() into lineClicked
  24.   -- determine how many lines are hidden above
  25.   put (the scroll of me / textHeight of me) into linesAbove
  26.   -- add that number to the relative position clicked
  27.   add linesAbove to lineClicked
  28.   -- userLevel must be set to 4 or 5 for select to work
  29.   put userLevel into tempUserLevel
  30.   set userLevel to 5
  31.   select line lineClicked of card field "list Index"
  32.   put tempUserLevel into userLevel
  33.   if the selection is empty
  34.   then
  35.   exit mouseUp
  36. end if
  37. put the selection into listSelected
  38. end mouseUp
  39.  
  40.  
  41. -- part 5 (button)
  42. -- low flags: 00
  43. -- high flags: 0001
  44. -- rect: left=495 top=53 right=341 bottom=511
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: New Button
  53.  
  54.  
  55. -- part contents for card part 3
  56. ----- text -----
  57.  10. | none
  58.      | Keywords dialog
  59.  11. | none
  60.      | Help view
  61.  12. | none
  62.      | File Server PICT
  63.  13. | none
  64.      | DispPICT window